home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 3
/
Gold Medal Software - Volume 3 (Gold Medal) (1994).iso
/
os2
/
te2_130t.arj
/
TE2INST.003
/
GEnie.scr
< prev
next >
Wrap
Text File
|
1994-03-28
|
1KB
|
35 lines
; ---------------------------------------------------------------------
;
; TE/2 Script Language
; Copyright 1990-94, Oberon Software, Mankato, MN
;
; Script for automated logon to
; GEnie (the General Electric Network for Information Exchange)
;
; ---------------------------------------------------------------------
; login string should have atleast "userid,password", it may optionally
; be of the form: "userid,password,first_menu". For instance,
; "xxx99999,password,615" will take you immediately to the IBMPC area.
string login = "xxx99999,password"
; ---------------------------------------------------------------------
program
if !connected ; !connected implies that we were NOT called
dial("GEnie") ; from the dialing directory, so go ahead
endif ; and dial up GEnie
if connected ; If we got a connect
transmit("HHH") ; Send synchronization sequence to GEnie
if muxwait("/U#=/Uú╜/", 60) ; and wait for the login prompt
transmit("%s^M", login) ; tell them who we are
else
hangup(IFCARRIER) ; This will ask the user if s/he wants to
endif ; hang up because we never found the
endif ; login prompt but we are still connected.
end